home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n03.arc
/
TSO.C
< prev
next >
Wrap
C/C++ Source or Header
|
1989-01-18
|
2KB
|
67 lines
/* TSO.C: This program is a very simple example of how to log on to
* a TSO session using the HLLAPI programming interface. This
* program does no checking for any error conditions which
* might occur during the signon process. */
/* EXTERNAL DECLARATIONS SECTION */
/* Entry point for the Language Interface Module
(LIM) where the HLLAPI commands are processed */
externapilim();
/* GLOBAL DATA SECTION */
charbuf[BUFSIZE];
intlen, ps_rc, func;
main() {
doconps('A'); /* Connect Presentation Space on session 'A' */
doskey("1 TSOID@E");/* Enter TSO Logon ID */
dopause(40); /* Wait for 20 secs for host to BIND session */
doskey("PASSWORD@E"); /* Enter Password */
dopause(30); /* Wait 15 secs for host to display READY prompt */
doskey("LOGOFF@E"); /* Logoff of TSO Session */
dopause(30); /* Wait for 15 secs for host to UNBIND session */
dodconps(); /* Disconnect Presentation Space */
}
/***Connect Presentation Space (Function 1)***/
doconps(session)
charsession;
{
func = ACONNECT;
len = 1;
buf = session;
buf[len] = '\0';
invoke();
}
/***Disconnect Presentation Space (Function 2)***/
dodconps() {
func = ADISCONN;
invoke();
}
/***Send Key (Function 3)***/doskey(strg)
char *strg;
{
len = strlen(strg);
strcpy(buf, strg);
buf[len] = '\0';
func = ASENDKEY;
invoke();
}
/***Pause (Function 18)***/
dopause(time)
inttime;
{
len = time;
func = APAUSE;
invoke();
}
/***Invoke:Calls the Language Interface Module (LIM)'s main routine.**/
invoke() {
return( apilim(&func, buf, &len, &ps_rc) );
}